' Kod VB6

Option Explicit
 
Public Sub Main()
    
  Dim o As DivideComponent.DivideFunction
    
  Set o = New DivideComponent.DivideFunction
    
  MsgBox "1 podzielone przez 3: " + CStr(o.divide(1, 3))
    
  MsgBox "1 podzielone przez 0: " + CStr(o.divide(1, 0))
    
  MsgBox "2000 podzielone przez 3000: " + CStr(o.divide(2000, 3000))
  
  Set o = Nothing

End Sub
